﻿Public Class frmShadowList

    Private Sub cmdLoad_Click(sender As Object, e As EventArgs) Handles cmdLoad.Click
        Dim l As New List(Of String)()

        Dim i As Long
        For i = 0 To lstShadowList.Items.Count - 1
            If lstShadowList.GetSelected(i) Then
                l.Add(lstShadowList.Items.Item(i))
            End If
        Next

        If l.Count < 1 Then
            MsgBox("No selected shadows", MsgBoxStyle.Critical, "Load Shadows")
            Exit Sub
        Else
            MainFormReference.LoadShadow(l.ToArray())
        End If

        Me.Close()
    End Sub
End Class